МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
ТЕРНОПІЛЬСЬКИЙ НАЦІОНАЛЬНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ ІМЕНІ ІВАНА ПУЛЮЯ
Кафедра комп’ютерних наук
Лабораторна робота №2
Продукційна модель представленнязнань
з дисципліни “Теорія алгоритмів”
Тернопіль 2011
Тема роботи:Продукційна модель представлення знань.
Мета роботи: Вивчення представлення знань засобами С++ та ПАСКАЛЬ в рамках продукційної моделі.
Завдання до лабораторноїроботи.
Варіант 6
Завдання: Розробити форму представлення знань для системи ідентифікації носіїв інформації.
Знання, представлені експертом: Папір - метод читання оптичний, об(єм середній, перезапис неможливий. Перфокарта - метод читання оптичний, об(єм малий, перезапис неможливий. ГМД - метод читання магнітний, об(єм середній, перезапис можливий. ЖМД - метод читання магнітний, об(єм великий, перезапис можливий. CD –метод читання оптичеий, об(єм великий, перезапис неможливий.CDRW – метод читання оптичеий, об(єм великий, перезапис можливий.DVD – метод читання оптичеий, об(єм великий, перезапис можливий.DVRW – метод читання оптичеий, об(єм великий, перезапис можливий. ПЗП – метод читання електронний, об(єм великий, перезапис неможливий.
Вигляд форми програми
Текст програми:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Label1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Label2: TLabel;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
Label3: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
GroupBox1: TGroupBox;
Memo1: TMemo;
ScrollBox1: TScrollBox;
procedure Button1Click(Sender:TObject);
private
{ Privatedeclarations }
public
{ Publicdeclarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender:TObject);
begin
if (RadioButton1.Checked=True)and(Radiobutton4.Checked=True)and
(ComboBox1.ItemIndex=1) then
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Перфокарта');
end
elseif (RadioButton1.Checked=True)and(Radiobutton5.Checked=True)and
(ComboBox1.ItemIndex=1) then
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('Папір');
end
elseif (RadioButton1.Checked=True)and(Radiobutton6.Checked=True)and
(ComboBox1.ItemIndex=0) then
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('CDRW , DVDRW');
end
elseif (RadioButton1.Checked=True)and(Radiobutton6.Checked=True)and
(ComboBox1.ItemIndex=1) then
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('CD , DVD');
end
elseif (RadioButton2.Checked=True)and(Radiobutton5.Checked=True)and
(ComboBox1.ItemIndex=0) then
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('ГМД');
end
elseif (RadioButton2.Checked=True)and(Radiobutton6.Checked=True)and
(ComboBox1.ItemIndex=0) then
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('ЖМД');
end
elseif (RadioButton3.Checked=True)and(Radiobutton6.Checked=True)and
(ComboBox1.ItemIndex=1) then
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('ПЗП');
end
elsebegin
Memo1.Lines.Clear;
Memo1.Lines.Add('Тип обєктувизначити не можливо!');
Memo1.Lines.Add('Перевіртеправильністтьвведенихданих і спробуйтеще раз!');
end;
end;
end.
Висновок: На цій лабораторній роботі я ознайомився з представленням знань засобами Delphi.
